<% set rs=conn.execute("select *from class2 where class1_id="&id) do while not rs.eof class2_name=rs("title") %> <% rs.movenext loop %> - <%=class1_name%> - ＞ &class2_name=<%=class2_name%>"><%=class2_name%> 新闻搜索 类　别 全部 内地新闻 港台新闻 日韩新闻 欧美新闻 关键字：

你现在的位置：首页－－－＞<%=class1_name%> <% sql="select *from article where class1_id="&id&" order by id desc" set rs=createobject("adodb.recordset") rs.open sql,conn,1,1 if not rs.eof then pc=10 IF isEmpty(pc) or pc="" or pc<1 Then pc=10 i=0 page=request("page") Rs.PageSize=pc All_Page=Rs.PageCount allrecord=rs.recordcount IF isEmpty(Page) or cint(page)<1 or cint(Page)>cint(All_Page) Then Page=1 Rs.absolutepage=page loopno=pc do while not rs.eof and loopno>0 %>   "><%=rs("title")%> (<%=rs("reg_date")%>) <% rs.movenext loopno=loopno-1 loop end if %>   <%if cint(page)=1 or isempty(page) then%> 首页 <%else%> 首页 <%end if%> <%if cint(page)>1 then%> 上一页 <%else response.write "上一页" end if%> 　 <%if cint(page) 下一页 <%else response.write "下一页"end if%> 　 <%if cint(page) 尾页　 <%else response.write "尾页" end if%> 　共计 <%=allrecord%> 条信息　分 <%=all_page%> 页显示 　每页 <%=pc%> 条　当前第 <%=page%> 页